home *** CD-ROM | disk | FTP | other *** search
- 5 COLOR 0,13:PRINT
- 6 PRINT
- 10 PRINT " PI NETWORK HARMONIC ANALYSIS"
- 15 PRINT
- 20 INPUT "ENTER VALUE OF (Q)"; Q
- 25 INPUT "ENTER VALUE OF INPUT RESISTANCE (RI)"; RI
- 30 INPUT "ENTER VALUE OF LOAD RESISTANCE (RL)"; RL
- 35 X1 = RI/Q
- 40 AA = RI/RL
- 41 AB = (Q^2) + 1 - (RI/RL)
- 42 AC = (AA/AB)^.5
- 43 X3 = RL * AC
- 50 AD = Q * RI
- 51 AE = RL * RI/X3
- 52 AM = Q^2 + 1
- 53 X2 = (AD + AE)/AM
- 55 XM = X1/2
- 60 XO = X3/2
- 61 XN =X2 * 2
- 70 GL = 1/RL
- 75 B3 = 1/XO
- 80 YA = (GL^2 + B3^2)^.5
- 81 W = 57.29578
- 85 AF = (ATN(B3/GL))*W
- 90 ZA = 1/YA
- 100 AG = -AF
- 105 RA = ZA * (COS(AG/W))
- 110 XA = ZA * (SIN(AG/W))
- 115 XB = XN + XA
- 120 ZB = (RA^2 + XB^2)^.5
- 125 AH = (ATN(XB/RA))*W
- 130 YC = 1/ZB
- 135 AI = -AH
- 140 GC = YC * (COS(AI/W))
- 141 BC = YC * (SIN(AI/W))
- 145 BI = 1/XM
- 150 BD = BI + BC
- 155 YI = (GC^2 + BD^2)^.5
- 160 AJ = (ATN(BD/GC))*W
- 165 ZI = 1/YI
- 170 AK = -AJ
- 175 RH = ZI * (COS(AK/W))
- 180 XH = ZI * (SIN(AK/W))
- 185 DB = 4.343 * LOG (RI/RH)
- 186 COLOR 0,15:PRINT
- 190 PRINT
- 195 PRINT " ***ANSWERS***"
- 200 PRINT
- 205 PRINT Q, "VALUE OF (Q)"
- 210 PRINT RI, "INPUT RESISTANCE (RI)"
- 215 PRINT RL, "LOAD RESISTANCE (RL)"
- 220 PRINT -X1, "VALUE OF REACTANCE (X1)"
- 225 PRINT -X3, "VALUE OF REACTANCE (X3)"
- 230 PRINT X2, "VALUE OF REACTANCE (X2)"
- 235 PRINT DB, "SECOND HARMONIC ATTENUATION IN (DB)"
- 236 PRINT:PRINT
- 240 INPUT "ENTER FREQUENCY (F) IN MHz"; F
- 241 C1 = 159155!/(X1 * F)
- 242 C3 = 159155!/(X3 * F)
- 243 L2 = .159155 * X2/F
- 244 PRINT
- 245 PRINT " ***ANSWERS***
- 246 PRINT
- 247 PRINT C1, "CAPACITANCE OF (C1) IN pF"
- 248 PRINT C3, "CAPACITANCE OF (C3) IN pF"
- 250 PRINT L2, "INDUCTANCE OF (L2) IN uH"
- 255 PRINT
- 260 COLOR 15,0
- 265 PRINT
- 270 COLOR 0,10 :PRINT
- 275 PRINT:PRINT
- 280 PRINT " PROGRAM BY I.L.McNALLY K6WX